home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / cmpnew / cmplet.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  19KB  |  856 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmplet.h"
  5. init_cmplet(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],VV[3],VV[4]));
  10.     (void)(putprop(VV[5],VV[6],VV[2]));
  11.     (void)(putprop(VV[5],VV[7],VV[4]));
  12.     MF(VV[1],L5,start,size,data);
  13.     MF(VV[3],L6,start,size,data);
  14.     MF(VV[6],L7,start,size,data);
  15.     MF(VV[7],L8,start,size,data);
  16.     MF(VV[31],L9,start,size,data);
  17.     MF(VV[32],L10,start,size,data);
  18.     vs_top=vs_base=base;
  19. }
  20. /*    function definition for C1LET    */
  21.  
  22. static L5()
  23. {    register object *base=vs_base;
  24.     register object *sup=base+VM3;
  25.     vs_reserve(VM3);
  26.     bds_check;
  27.     check_arg(1);
  28.     vs_top=sup;
  29. TTL:;
  30.     base[1]= simple_symlispcall_no_event(VV[33],base+2,0);
  31.     base[2]= Cnil;
  32.     base[3]= Cnil;
  33.     base[4]= Cnil;
  34.     base[5]= Cnil;
  35.     base[6]= Cnil;
  36.     base[7]= Cnil;
  37.     base[8]= Cnil;
  38.     base[9]= Cnil;
  39.     bds_bind(VV[8],symbol_value(VV[8]));
  40.     if(!(endp(base[0]))){
  41.     goto T6;}
  42.     base[11]= VV[0];
  43.     base[12]= VV[9];
  44.     base[13]= VV[10];
  45.     (void)simple_symlispcall_no_event(VV[34],base+11,3);
  46. T6:;
  47.     base[11]= cdr(base[0]);
  48.     base[12]= Cnil;
  49.     symlispcall_no_event(VV[35],base+11,2);
  50.     if(vs_base<vs_top){
  51.     base[8]= vs_base[0];
  52.     vs_base++;
  53.     }else{
  54.     base[8]= Cnil;}
  55.     if(vs_base<vs_top){
  56.     base[5]= vs_base[0];
  57.     vs_base++;
  58.     }else{
  59.     base[5]= Cnil;}
  60.     if(vs_base<vs_top){
  61.     base[7]= vs_base[0];
  62.     vs_base++;
  63.     }else{
  64.     base[7]= Cnil;}
  65.     if(vs_base<vs_top){
  66.     base[6]= vs_base[0];
  67.     vs_base++;
  68.     }else{
  69.     base[6]= Cnil;}
  70.     if(vs_base<vs_top){
  71.     base[9]= vs_base[0];
  72.     }else{
  73.     base[9]= Cnil;}
  74.     vs_top=sup;
  75.     base[11]= base[5];
  76.     (void)simple_symlispcall_no_event(VV[36],base+11,1);
  77.     {object V1;
  78.     object V2;
  79.     V1= car(base[0]);
  80.     V2= car((V1));
  81. T22:;
  82.     if(!(endp((V1)))){
  83.     goto T23;}
  84.     goto T18;
  85. T23:;
  86.     if(!(type_of((V2))==t_symbol)){
  87.     goto T29;}
  88.     base[12]= (V2);
  89.     base[13]= base[5];
  90.     base[14]= base[6];
  91.     base[15]= base[7];
  92.     base[11]= simple_symlispcall_no_event(VV[37],base+12,4);
  93.     base[4]= make_cons((V2),base[4]);
  94.     base[3]= make_cons(base[11],base[3]);
  95.     base[13]= structure_ref(base[11],VV[11],5);
  96.     base[12]= simple_symlispcall_no_event(VV[38],base+13,1);
  97.     base[2]= make_cons(base[12],base[2]);
  98.     goto T27;
  99. T29:;
  100.     if(!(type_of((V2))==t_cons)){
  101.     goto T44;}
  102.     if(endp(cdr((V2)))){
  103.     goto T43;}
  104.     if(endp(cddr((V2)))){
  105.     goto T43;}
  106. T44:;
  107.     base[11]= VV[12];
  108.     base[12]= (V2);
  109.     (void)simple_symlispcall_no_event(VV[39],base+11,2);
  110. T43:;
  111.     base[12]= car((V2));
  112.     base[13]= base[5];
  113.     base[14]= base[6];
  114.     base[15]= base[7];
  115.     base[11]= simple_symlispcall_no_event(VV[37],base+12,4);
  116.     base[4]= make_cons(car((V2)),base[4]);
  117.     base[3]= make_cons(base[11],base[3]);
  118.     if(!(endp(cdr((V2))))){
  119.     goto T64;}
  120.     base[13]= structure_ref(base[11],VV[11],5);
  121.     base[12]= simple_symlispcall_no_event(VV[38],base+13,1);
  122.     goto T62;
  123. T64:;
  124.     base[13]=symbol_function(VV[40]);
  125.     base[14]= structure_ref(base[11],VV[11],5);
  126.     base[16]= cadr((V2));
  127.     base[17]= base[1];
  128.     base[15]= simple_symlispcall_no_event(VV[41],base+16,2);
  129.     base[16]= cadr((V2));
  130.     base[12]= simple_lispcall_no_event(base+13,3);
  131. T62:;
  132.     base[2]= make_cons(base[12],base[2]);
  133. T27:;
  134.     V1= cdr((V1));
  135.     V2= car((V1));
  136.     goto T22;}
  137. T18:;
  138.     {object V3;
  139.     base[11]= reverse(base[3]);
  140.     V3= car(base[11]);
  141. T81:;
  142.     if(!(endp(base[11]))){
  143.     goto T82;}
  144.     goto T77;
  145. T82:;
  146.     (VV[8]->s.s_dbind)= make_cons((V3),(VV[8]->s.s_dbind));
  147.     base[11]= cdr(base[11]);
  148.     V3= car(base[11]);
  149.     goto T81;}
  150. T77:;
  151.     base[11]= base[4];
  152.     base[12]= base[7];
  153.     base[13]= base[6];
  154.     (void)simple_symlispcall_no_event(VV[42],base+11,3);
  155.     base[11]= base[9];
  156.     base[12]= base[8];
  157.     base[8]= simple_symlispcall_no_event(VV[43],base+11,2);
  158.     base[11]= base[1];
  159.     base[12]= cadr(base[8]);
  160.     (void)simple_symlispcall_no_event(VV[44],base+11,2);
  161.     structure_set(base[1],VV[13],2,structure_ref(cadr(base[8]),VV[13],2));
  162.     {object V4;
  163.     object V5;
  164.     V4= base[3];
  165.     V5= car((V4));
  166. T109:;
  167.     if(!(endp((V4)))){
  168.     goto T110;}
  169.     goto T105;
  170. T110:;
  171.     base[11]= (V5);
  172.     (void)simple_symlispcall_no_event(VV[45],base+11,1);
  173.     V4= cdr((V4));
  174.     V5= car((V4));
  175.     goto T109;}
  176. T105:;
  177.     base[11]= reverse(base[3]);
  178.     base[12]= reverse(base[2]);
  179.     base[13]= list(5,VV[0],base[1],base[11],base[12],base[8]);
  180.     vs_top=(vs_base=base+13)+1;
  181.     bds_unwind1;
  182.     return;
  183. }
  184. /*    function definition for C2LET    */
  185.  
  186. static L6()
  187. {    register object *base=vs_base;
  188.     register object *sup=base+VM4;
  189.     vs_reserve(VM4);
  190.     bds_check;
  191.     check_arg(3);
  192.     vs_top=sup;
  193. TTL:;
  194.     {object V6;
  195.     V6= Cnil;
  196.     base[3]= Cnil;
  197.     bds_bind(VV[14],symbol_value(VV[14]));
  198.     bds_bind(VV[15],symbol_value(VV[15]));
  199.     bds_bind(VV[16],symbol_value(VV[16]));
  200.     bds_bind(VV[17],symbol_value(VV[17]));
  201.     {object V7;
  202.     object V8;
  203.     V7= base[0];
  204.     V8= car((V7));
  205. T126:;
  206.     if(!(endp((V7)))){
  207.     goto T127;}
  208.     goto T122;
  209. T127:;
  210.     {object V9;
  211.     base[8]= (V8);
  212.     V9= simple_symlispcall_no_event(VV[46],base+8,1);
  213.     if(((V9))==Cnil){
  214.     goto T135;}
  215.     setq(VV[18],number_plus(symbol_value(VV[18]),VV[9]));
  216.     base[8]= symbol_value(VV[18]);
  217.     structure_set((V8),VV[11],1,(V9));
  218.     structure_set((V8),VV[11],4,base[8]);
  219.     princ_str("\n    ",VV[19]);
  220.     if(((V6))!=Cnil){
  221.     goto T142;}
  222.     princ_char(123,VV[19]);
  223.     V6= Ct;
  224. T142:;
  225.     base[9]=symbol_function(VV[47]);
  226.     base[11]= (V9);
  227.     base[10]= simple_symlispcall_no_event(VV[48],base+11,1);
  228.     (void)simple_lispcall_no_event(base+9,1);
  229.     princ_char(86,VV[19]);
  230.     base[9]= base[8];
  231.     (void)simple_symlispcall_no_event(VV[47],base+9,1);
  232.     princ_char(59,VV[19]);
  233.     goto T131;
  234. T135:;
  235.     base[8]= simple_symlispcall_no_event(VV[49],base+9,0);
  236.     structure_set((V8),VV[11],2,base[8]);}
  237. T131:;
  238.     V7= cdr((V7));
  239.     V8= car((V7));
  240.     goto T126;}
  241. T122:;
  242.     {object V10;
  243.     object V11;
  244.     V10= base[0];
  245.     V11= base[1];
  246.     base[8]= Cnil;
  247. T165:;
  248.     if(!(endp((V10)))){
  249.     goto T166;}
  250.     goto T161;
  251. T166:;
  252.     {object V12;
  253.     object V13;
  254.     V12= car((V11));
  255.     V13= car((V10));
  256.     {object V14= structure_ref((V13),VV[11],1);
  257.     if((V14!= VV[50])
  258.     && (V14!= VV[51])
  259.     && (V14!= VV[52])
  260.     && (V14!= VV[53])
  261.     && (V14!= VV[54]))goto T174;
  262.     base[9]= list(3,VV[11],(V13),Cnil);
  263.     bds_bind(VV[20],base[9]);
  264.     base[10]= (V12);
  265.     base[11]= simple_symlispcall_no_event(VV[55],base+10,1);
  266.     bds_unwind1;
  267.     goto T173;
  268. T174:;
  269.     {object V15= car((V12));
  270.     if((V15!= VV[56]))goto T177;
  271.     base[9]= (V13);
  272.     base[10]= base[2];
  273.     vs_top=(vs_base=base+9)+2;
  274.     L9();
  275.     vs_top=sup;
  276.     if((vs_base[0])==Cnil){
  277.     goto T179;}
  278.     structure_set((V13),VV[11],1,VV[21]);
  279.     structure_set((V13),VV[11],4,caddr((V12)));
  280.     goto T173;
  281. T179:;
  282.     base[9]= list(2,(V13),caddr((V12)));
  283.     base[3]= make_cons(base[9],base[3]);
  284.     goto T173;
  285. T177:;
  286.     if((V15!= VV[11]))goto T185;
  287.     {object V16;
  288.     V16= caaddr((V12));
  289.     base[9]= (V16);
  290.     base[10]= cdr((V11));
  291.     if((simple_symlispcall_no_event(VV[57],base+9,2))!=Cnil){
  292.     goto T187;}
  293.     {object x= structure_ref((V16),VV[11],1),V17= VV[22];
  294.     while(!endp(V17))
  295.     if(eql(x,V17->c.c_car)){
  296.     goto T194;
  297.     }else V17=V17->c.c_cdr;
  298.     goto T188;}
  299. T194:;
  300.     {object x= structure_ref((V16),VV[11],0),V18= base[8];
  301.     while(!endp(V18))
  302.     if(eql(x,V18->c.c_car)){
  303.     goto T195;
  304.     }else V18=V18->c.c_cdr;
  305.     goto T188;}
  306. T195:;
  307. T187:;
  308.     base[9]= list(2,VV[23],structure_ref((V13),VV[11],2));
  309.     bds_bind(VV[20],base[9]);
  310.     base[10]= (V12);
  311.     base[11]= simple_symlispcall_no_event(VV[55],base+10,1);
  312.     bds_unwind1;
  313.     base[9]= make_cons((V13),Cnil);
  314.     base[3]= make_cons(base[9],base[3]);
  315.     goto T173;
  316. T188:;
  317.     base[9]= (V13);
  318.     base[10]= base[2];
  319.     vs_top=(vs_base=base+9)+2;
  320.     L9();
  321.     vs_top=sup;
  322.     if((vs_base[0])==Cnil){
  323.     goto T201;}
  324.     {object x= structure_ref((V16),VV[11],1),V19= VV[24];
  325.     while(!endp(V19))
  326.     if(eql(x,V19->c.c_car)){
  327.     goto T207;
  328.     }else V19=V19->c.c_cdr;
  329.     goto T201;}
  330. T207:;
  331.     if((structure_ref((V16),VV[11],3))!=Cnil){
  332.     goto T201;}
  333.     {object x= (V16),V20= structure_ref(cadr(base[2]),VV[13],0);
  334.     while(!endp(V20))
  335.     if(eql(x,V20->c.c_car)){
  336.     goto T201;
  337.     }else V20=V20->c.c_cdr;}
  338.     structure_set((V13),VV[11],1,VV[21]);
  339.     {object V21= structure_ref((V16),VV[11],1);
  340.     if((V21!= VV[30]))goto T213;
  341.     base[9]= list(2,VV[23],structure_ref((V16),VV[11],2));
  342.     goto T212;
  343. T213:;
  344.     if((V21!= VV[21]))goto T214;
  345.     base[9]= structure_ref((V16),VV[11],4);
  346.     goto T212;
  347. T214:;
  348.     if((V21!= VV[54]))goto T215;
  349.     base[9]= list(2,VV[25],structure_ref((V16),VV[11],4));
  350.     goto T212;
  351. T215:;
  352.     base[9]= simple_symlispcall_no_event(VV[58],base+10,0);}
  353. T212:;
  354.     structure_set((V13),VV[11],4,base[9]);
  355.     goto T173;
  356. T201:;
  357.     base[9]= list(3,VV[11],(V16),cadr(caddr((V12))));
  358.     base[10]= list(2,(V13),base[9]);
  359.     base[3]= make_cons(base[10],base[3]);
  360.     goto T173;}
  361. T185:;
  362.     base[9]= list(2,VV[23],structure_ref((V13),VV[11],2));
  363.     bds_bind(VV[20],base[9]);
  364.     base[10]= (V12);
  365.     base[11]= simple_symlispcall_no_event(VV[55],base+10,1);
  366.     bds_unwind1;
  367.     base[9]= make_cons((V13),Cnil);
  368.     base[3]= make_cons(base[9],base[3]);}}
  369. T173:;
  370.     if(!(structure_ref((V13),VV[11],1)==VV[26])){
  371.     goto T170;}
  372.     base[8]= make_cons(structure_ref((V13),VV[11],0),base[8]);}
  373. T170:;
  374.     V10= cdr((V10));
  375.     V11= cdr((V11));
  376.     goto T165;}
  377. T161:;
  378.     {object V22;
  379.     base[8]= reverse(base[3]);
  380.     V22= car(base[8]);
  381. T232:;
  382.     if(!(endp(base[8]))){
  383.     goto T233;}
  384.     goto T228;
  385. T233:;
  386.     if((cdr((V22)))==Cnil){
  387.     goto T239;}
  388.     base[9]= car((V22));
  389.     base[10]= cadr((V22));
  390.     (void)simple_symlispcall_no_event(VV[59],base+9,2);
  391.     goto T237;
  392. T239:;
  393.     base[9]= car((V22));
  394.     (void)simple_symlispcall_no_event(VV[60],base+9,1);
  395. T237:;
  396.     base[8]= cdr(base[8]);
  397.     V22= car(base[8]);
  398.     goto T232;}
  399. T228:;
  400.     base[8]= base[2];
  401.     (void)simple_symlispcall_no_event(VV[61],base+8,1);
  402.     if(((V6))==Cnil){
  403.     goto T252;}
  404.     princ_char(125,VV[19]);
  405.     base[8]= Cnil;
  406.     vs_top=(vs_base=base+8)+1;
  407.     bds_unwind1;
  408.     bds_unwind1;
  409.     bds_unwind1;
  410.     bds_unwind1;
  411.     return;
  412. T252:;
  413.     base[8]= Cnil;
  414.     vs_top=(vs_base=base+8)+1;
  415.     bds_unwind1;
  416.     bds_unwind1;
  417.     bds_unwind1;
  418.     bds_unwind1;
  419.     return;}
  420. }
  421. /*    function definition for C1LET*    */
  422.  
  423. static L7()
  424. {    register object *base=vs_base;
  425.     register object *sup=base+VM5;
  426.     vs_reserve(VM5);
  427.     bds_check;
  428.     check_arg(1);
  429.     vs_top=sup;
  430. TTL:;
  431.     base[1]= Cnil;
  432.     base[2]= Cnil;
  433.     base[3]= Cnil;
  434.     base[4]= Cnil;
  435.     base[5]= Cnil;
  436.     base[6]= Cnil;
  437.     base[7]= Cnil;
  438.     base[8]= Cnil;
  439.     base[9]= simple_symlispcall_no_event(VV[33],base+10,0);
  440.     bds_bind(VV[8],symbol_value(VV[8]));
  441.     if(!(endp(base[0]))){
  442.     goto T256;}
  443.     base[11]= VV[5];
  444.     base[12]= VV[9];
  445.     base[13]= VV[10];
  446.     (void)simple_symlispcall_no_event(VV[34],base+11,3);
  447. T256:;
  448.     base[11]= cdr(base[0]);
  449.     base[12]= Cnil;
  450.     symlispcall_no_event(VV[35],base+11,2);
  451.     if(vs_base<vs_top){
  452.     base[7]= vs_base[0];
  453.     vs_base++;
  454.     }else{
  455.     base[7]= Cnil;}
  456.     if(vs_base<vs_top){
  457.     base[4]= vs_base[0];
  458.     vs_base++;
  459.     }else{
  460.     base[4]= Cnil;}
  461.     if(vs_base<vs_top){
  462.     base[6]= vs_base[0];
  463.     vs_base++;
  464.     }else{
  465.     base[6]= Cnil;}
  466.     if(vs_base<vs_top){
  467.     base[5]= vs_base[0];
  468.     vs_base++;
  469.     }else{
  470.     base[5]= Cnil;}
  471.     if(vs_base<vs_top){
  472.     base[8]= vs_base[0];
  473.     }else{
  474.     base[8]= Cnil;}
  475.     vs_top=sup;
  476.     base[11]= base[4];
  477.     (void)simple_symlispcall_no_event(VV[36],base+11,1);
  478.     {object V23;
  479.     object V24;
  480.     V23= car(base[0]);
  481.     V24= car((V23));
  482. T272:;
  483.     if(!(endp((V23)))){
  484.     goto T273;}
  485.     goto T268;
  486. T273:;
  487.     if(!(type_of((V24))==t_symbol)){
  488.     goto T279;}
  489.     base[12]= (V24);
  490.     base[13]= base[4];
  491.     base[14]= base[5];
  492.     base[15]= base[6];
  493.     base[11]= simple_symlispcall_no_event(VV[37],base+12,4);
  494.     base[3]= make_cons((V24),base[3]);
  495.     base[13]= structure_ref(base[11],VV[11],5);
  496.     base[12]= simple_symlispcall_no_event(VV[38],base+13,1);
  497.     base[1]= make_cons(base[12],base[1]);
  498.     base[2]= make_cons(base[11],base[2]);
  499.     (VV[8]->s.s_dbind)= make_cons(base[11],(VV[8]->s.s_dbind));
  500.     goto T277;
  501. T279:;
  502.     if(!(type_of((V24))==t_cons)){
  503.     goto T295;}
  504.     if(endp(cdr((V24)))){
  505.     goto T296;}
  506.     if(endp(cddr((V24)))){
  507.     goto T296;}
  508. T295:;
  509.     base[11]= VV[27];
  510.     base[12]= (V24);
  511.     (void)simple_symlispcall_no_event(VV[39],base+11,2);
  512.     goto T277;
  513. T296:;
  514.     base[12]= car((V24));
  515.     base[13]= base[4];
  516.     base[14]= base[5];
  517.     base[15]= base[6];
  518.     base[11]= simple_symlispcall_no_event(VV[37],base+12,4);
  519.     base[3]= make_cons(car((V24)),base[3]);
  520.     if(!(endp(cdr((V24))))){
  521.     goto T315;}
  522.     base[13]= structure_ref(base[11],VV[11],5);
  523.     base[12]= simple_symlispcall_no_event(VV[38],base+13,1);
  524.     goto T313;
  525. T315:;
  526.     base[13]=symbol_function(VV[40]);
  527.     base[14]= structure_ref(base[11],VV[11],5);
  528.     base[16]= cadr((V24));
  529.     base[17]= base[9];
  530.     base[15]= simple_symlispcall_no_event(VV[41],base+16,2);
  531.     base[16]= cadr((V24));
  532.     base[12]= simple_lispcall_no_event(base+13,3);
  533. T313:;
  534.     base[1]= make_cons(base[12],base[1]);
  535.     base[2]= make_cons(base[11],base[2]);
  536.     (VV[8]->s.s_dbind)= make_cons(base[11],(VV[8]->s.s_dbind));
  537. T277:;
  538.     V23= cdr((V23));
  539.     V24= car((V23));
  540.     goto T272;}
  541. T268:;
  542.     base[11]= base[3];
  543.     base[12]= base[6];
  544.     base[13]= base[5];
  545.     (void)simple_symlispcall_no_event(VV[42],base+11,3);
  546.     base[11]= base[8];
  547.     base[12]= base[7];
  548.     base[7]= simple_symlispcall_no_event(VV[43],base+11,2);
  549.     base[11]= base[9];
  550.     base[12]= cadr(base[7]);
  551.     (void)simple_symlispcall_no_event(VV[44],base+11,2);
  552.     structure_set(base[9],VV[13],2,structure_ref(cadr(base[7]),VV[13],2));
  553.     {object V25;
  554.     object V26;
  555.     V25= base[2];
  556.     V26= car((V25));
  557. T347:;
  558.     if(!(endp((V25)))){
  559.     goto T348;}
  560.     goto T343;
  561. T348:;
  562.     base[11]= (V26);
  563.     (void)simple_symlispcall_no_event(VV[45],base+11,1);
  564.     V25= cdr((V25));
  565.     V26= car((V25));
  566.     goto T347;}
  567. T343:;
  568.     base[11]= reverse(base[2]);
  569.     base[12]= reverse(base[1]);
  570.     base[13]= list(5,VV[5],base[9],base[11],base[12],base[7]);
  571.     vs_top=(vs_base=base+13)+1;
  572.     bds_unwind1;
  573.     return;
  574. }
  575. /*    function definition for C2LET*    */
  576.  
  577. static L8()
  578. {    register object *base=vs_base;
  579.     register object *sup=base+VM6;
  580.     vs_reserve(VM6);
  581.     bds_check;
  582.     check_arg(3);
  583.     vs_top=sup;
  584. TTL:;
  585.     {object V27;
  586.     V27= Cnil;
  587.     bds_bind(VV[14],symbol_value(VV[14]));
  588.     bds_bind(VV[15],symbol_value(VV[15]));
  589.     bds_bind(VV[16],symbol_value(VV[16]));
  590.     bds_bind(VV[17],symbol_value(VV[17]));
  591.     {object V28;
  592.     object V29;
  593.     V28= base[0];
  594.     V29= car((V28));
  595. T364:;
  596.     if(!(endp((V28)))){
  597.     goto T365;}
  598.     goto T360;
  599. T365:;
  600.     {object V30;
  601.     base[7]= (V29);
  602.     V30= simple_symlispcall_no_event(VV[46],base+7,1);
  603.     if(((V30))==Cnil){
  604.     goto T369;}
  605.     setq(VV[18],number_plus(symbol_value(VV[18]),VV[9]));
  606.     base[7]= symbol_value(VV[18]);
  607.     structure_set((V29),VV[11],1,(V30));
  608.     structure_set((V29),VV[11],4,base[7]);
  609.     princ_str("\n    ",VV[19]);
  610.     if(((V27))!=Cnil){
  611.     goto T379;}
  612.     princ_char(123,VV[19]);
  613.     V27= Ct;
  614. T379:;
  615.     base[8]=symbol_function(VV[47]);
  616.     base[10]= (V30);
  617.     base[9]= simple_symlispcall_no_event(VV[48],base+10,1);
  618.     (void)simple_lispcall_no_event(base+8,1);
  619.     princ_char(86,VV[19]);
  620.     base[8]= base[7];
  621.     (void)simple_symlispcall_no_event(VV[47],base+8,1);
  622.     princ_char(59,VV[19]);}
  623. T369:;
  624.     V28= cdr((V28));
  625.     V29= car((V28));
  626.     goto T364;}
  627. T360:;
  628.     {object V31;
  629.     object V32;
  630.     V31= base[0];
  631.     V32= base[1];
  632. T401:;
  633.     if(!(endp((V31)))){
  634.     goto T402;}
  635.     goto T397;
  636. T402:;
  637.     {object V33;
  638.     object V34;
  639.     V33= car((V32));
  640.     V34= car((V31));
  641.     {object x= structure_ref((V34),VV[11],1),V35= VV[28];
  642.     while(!endp(V35))
  643.     if(eql(x,V35->c.c_car)){
  644.     goto T411;
  645.     }else V35=V35->c.c_cdr;
  646.     goto T410;}
  647. T411:;
  648.     base[7]= list(3,VV[11],(V34),Cnil);
  649.     bds_bind(VV[20],base[7]);
  650.     base[8]= (V33);
  651.     base[9]= simple_symlispcall_no_event(VV[55],base+8,1);
  652.     bds_unwind1;
  653.     goto T406;
  654. T410:;
  655.     {object V36= car((V33));
  656.     if((V36!= VV[56]))goto T414;
  657.     base[7]= (V34);
  658.     base[8]= base[2];
  659.     base[9]= cdr((V32));
  660.     vs_top=(vs_base=base+7)+3;
  661.     L10();
  662.     vs_top=sup;
  663.     if((vs_base[0])==Cnil){
  664.     goto T416;}
  665.     structure_set((V34),VV[11],1,VV[21]);
  666.     structure_set((V34),VV[11],4,caddr((V33)));
  667.     goto T406;
  668. T416:;
  669.     base[7]= simple_symlispcall_no_event(VV[49],base+8,0);
  670.     structure_set((V34),VV[11],2,base[7]);
  671.     base[7]= (V34);
  672.     base[8]= caddr((V33));
  673.     (void)simple_symlispcall_no_event(VV[59],base+7,2);
  674.     goto T406;
  675. T414:;
  676.     if((V36!= VV[11]))goto T426;
  677.     {object V37;
  678.     V37= caaddr((V33));
  679.     base[7]= (V34);
  680.     base[8]= base[2];
  681.     base[9]= cdr((V32));
  682.     vs_top=(vs_base=base+7)+3;
  683.     L10();
  684.     vs_top=sup;
  685.     if((vs_base[0])==Cnil){
  686.     goto T429;}
  687.     {object x= structure_ref((V37),VV[11],1),V38= VV[29];
  688.     while(!endp(V38))
  689.     if(eql(x,V38->c.c_car)){
  690.     goto T436;
  691.     }else V38=V38->c.c_cdr;
  692.     goto T429;}
  693. T436:;
  694.     if((structure_ref((V37),VV[11],3))!=Cnil){
  695.     goto T429;}
  696.     base[7]= (V37);
  697.     base[8]= cdr((V32));
  698.     if((simple_symlispcall_no_event(VV[57],base+7,2))!=Cnil){
  699.     goto T429;}
  700.     {object x= (V37),V39= structure_ref(cadr(base[2]),VV[13],0);
  701.     while(!endp(V39))
  702.     if(eql(x,V39->c.c_car)){
  703.     goto T429;
  704.     }else V39=V39->c.c_cdr;}
  705.     structure_set((V34),VV[11],1,VV[21]);
  706.     {object V40= structure_ref((V37),VV[11],1);
  707.     if((V40!= VV[30]))goto T446;
  708.     base[7]= list(2,VV[23],structure_ref((V37),VV[11],2));
  709.     goto T445;
  710. T446:;
  711.     if((V40!= VV[21]))goto T447;
  712.     base[7]= structure_ref((V37),VV[11],4);
  713.     goto T445;
  714. T447:;
  715.     if((V40!= VV[54]))goto T448;
  716.     base[7]= list(2,VV[25],structure_ref((V37),VV[11],4));
  717.     goto T445;
  718. T448:;
  719.     base[7]= simple_symlispcall_no_event(VV[58],base+8,0);}
  720. T445:;
  721.     structure_set((V34),VV[11],4,base[7]);
  722.     goto T406;
  723. T429:;
  724.     base[7]= simple_symlispcall_no_event(VV[49],base+8,0);
  725.     structure_set((V34),VV[11],2,base[7]);
  726.     base[7]= (V34);
  727.     base[8]= list(3,VV[11],(V37),cadr(caddr((V33))));
  728.     (void)simple_symlispcall_no_event(VV[59],base+7,2);
  729.     goto T406;}
  730. T426:;
  731.     base[7]= simple_symlispcall_no_event(VV[49],base+8,0);
  732.     structure_set((V34),VV[11],2,base[7]);
  733.     base[7]= (V34);
  734.     base[8]= (V33);
  735.     (void)simple_symlispcall_no_event(VV[62],base+7,2);}}
  736. T406:;
  737.     V31= cdr((V31));
  738.     V32= cdr((V32));
  739.     goto T401;}
  740. T397:;
  741.     base[7]= base[2];
  742.     (void)simple_symlispcall_no_event(VV[61],base+7,1);
  743.     if(((V27))==Cnil){
  744.     goto T464;}
  745.     princ_char(125,VV[19]);
  746.     base[7]= Cnil;
  747.     vs_top=(vs_base=base+7)+1;
  748.     bds_unwind1;
  749.     bds_unwind1;
  750.     bds_unwind1;
  751.     bds_unwind1;
  752.     return;
  753. T464:;
  754.     base[7]= Cnil;
  755.     vs_top=(vs_base=base+7)+1;
  756.     bds_unwind1;
  757.     bds_unwind1;
  758.     bds_unwind1;
  759.     bds_unwind1;
  760.     return;}
  761. }
  762. /*    function definition for CAN-BE-REPLACED    */
  763.  
  764. static L9()
  765. {    register object *base=vs_base;
  766.     register object *sup=base+VM7;
  767.     vs_reserve(VM7);
  768.     check_arg(2);
  769.     vs_top=sup;
  770. TTL:;
  771.     if(structure_ref(base[0],VV[11],1)==VV[30]){
  772.     goto T467;}
  773.     base[2]= Cnil;
  774.     vs_top=(vs_base=base+2)+1;
  775.     return;
  776. T467:;
  777.     if(structure_ref(base[0],VV[11],3)==Cnil){
  778.     goto T469;}
  779.     base[2]= Cnil;
  780.     vs_top=(vs_base=base+2)+1;
  781.     return;
  782. T469:;
  783.     {object x= base[0],V41= structure_ref(cadr(base[1]),VV[13],0);
  784.     while(!endp(V41))
  785.     if(eql(x,V41->c.c_car)){
  786.     base[2]= V41;
  787.     goto T471;
  788.     }else V41=V41->c.c_cdr;
  789.     base[2]= Cnil;}
  790. T471:;
  791.     base[3]= ((base[2])==Cnil?Ct:Cnil);
  792.     vs_top=(vs_base=base+3)+1;
  793.     return;
  794. }
  795. /*    function definition for CAN-BE-REPLACED*    */
  796.  
  797. static L10()
  798. {    register object *base=vs_base;
  799.     register object *sup=base+VM8;
  800.     vs_reserve(VM8);
  801.     check_arg(3);
  802.     vs_top=sup;
  803. TTL:;
  804.     if(structure_ref(base[0],VV[11],1)==VV[30]){
  805.     goto T472;}
  806.     base[3]= Cnil;
  807.     vs_top=(vs_base=base+3)+1;
  808.     return;
  809. T472:;
  810.     if(structure_ref(base[0],VV[11],3)==Cnil){
  811.     goto T474;}
  812.     base[3]= Cnil;
  813.     vs_top=(vs_base=base+3)+1;
  814.     return;
  815. T474:;
  816.     {object x= base[0],V42= structure_ref(cadr(base[1]),VV[13],0);
  817.     while(!endp(V42))
  818.     if(eql(x,V42->c.c_car)){
  819.     base[3]= V42;
  820.     goto T478;
  821.     }else V42=V42->c.c_cdr;
  822.     base[3]= Cnil;}
  823. T478:;
  824.     if((base[3])==Cnil){
  825.     goto T476;}
  826.     base[3]= Cnil;
  827.     vs_top=(vs_base=base+3)+1;
  828.     return;
  829. T476:;
  830.     {object V43;
  831.     object V44;
  832.     V43= base[2];
  833.     V44= car((V43));
  834. T482:;
  835.     if(!(endp((V43)))){
  836.     goto T483;}
  837.     base[3]= Ct;
  838.     vs_top=(vs_base=base+3)+1;
  839.     return;
  840. T483:;
  841.     {object x= base[0],V45= structure_ref(cadr((V44)),VV[13],0);
  842.     while(!endp(V45))
  843.     if(eql(x,V45->c.c_car)){
  844.     goto T489;
  845.     }else V45=V45->c.c_cdr;
  846.     goto T487;}
  847. T489:;
  848.     base[3]= Cnil;
  849.     vs_top=(vs_base=base+3)+1;
  850.     return;
  851. T487:;
  852.     V43= cdr((V43));
  853.     V44= car((V43));
  854.     goto T482;}
  855. }
  856.